Question

Below is small example of my txt.file that i am using in rstudio.

My objective is create a matrix whose columns representing each year ,(2012-1990) . if "gender" is woman to list the age within its respected column for that given year. Below is the code I had created but an error displays "Error in `[<-`(`*tmp*`, i, p, value = mydata[i, 1]) : subscript out of bounds" . Can someone please explain in detail my error and what may fix my code.

*******PLEASE DO NOT OFFER A COMPLETE ALTERNATIVE CODE......USE AS MUCH OF MY ORIGINAL CODE AS POSSIBLE ************

sample txt.file

age   gender   years
43   female   2012
36   male   2011
35   male   2010
24   female   2009
41   male   2008
47   male   2007
57   male   2006
77   male   2005
39   female   2004
70   male   2003
39   female   2002
66   male   2001
59   female   2000
66   female   1999
77   female   1998
51   male   1997
43   female   1996
41   female   1995
79   male   1994
37   female   1993
38   male   1992
53   male   1991
59   male   1990
44   male   1989
60   female   1988
51   female   1987
56   female   1986
51   female   1985
44   male   1984
61   male   1983
55   female   1982
66   male   1981
59   female   1980
62   male   1979
76   female   1978
41   female   1977
27   female   1976
52   male   1975
48   female   1974
72   female   1973
42   female   1972
48   female   1971
66   female   1970
52   female   1969
37   male   1968
52   female   1967
54   female   1966
50   male   1965
46   male   1964
62   male   1963
61   male   1962
33   male   1961
51   male   1960
59   female   1959
58   female   1958
64   male   1957
42   male   1956
32   male   1955
62   male   1954
71   female   1953
37   female   1952
61   male   1951
28   female   1950
41   female   1949
77   male   1948
34   female   1947
72   female   1946
35   male   1945
68   female   1944
67   male   1943
64   female   1942
39   male   1941
88   female   1940
40   male   1939
43   male   1938
53   male   1937
42   female   1936
38   male   1935
66   female   1934
76   female   1933
44   female   1932
43   female   1931
78   female   1930
47   female   1929
65   female   1928
74   male   1927
53   female   1926
28   female   1925
56   female   1924
82   male   1923
55   male   1922
49   female   1921
77   male   1920
84   male   1919
65   female   1918
81   female   1917
41   female   1916
45   male   1915
74   male   1914
67   male   1913
40   male   1912
71   male   1911
49   female   1910
70   female   1909
61   male   1908
60   female   1907
67   male   1906
76   male   1905
69   female   1904
31   male   1903
47   male   1902
62   male   1901
56   female   1900
66   female   2012
62   female   2011
63   female   2010
48   male   2009
64   female   2008
89   female   2007
68   female   2006
81   male   2005
74   male   2004
83   female   2003
57   female   2002
70   male   2001
79   female   2000
46   male   1999
41   male   1998
53   female   1993

setwd("C:/Users/aidan/Desktop/r-studio_practice/extracting")
mydata=read.table("genderageyear.txt", header=T)
nrow(mydata)
print(max(mydata[,3]))
print(min(mydata[,3]))
print(2012-1990)
#22 cols,1525 rows

holder=matrix(0,1525,23)

for( i in 1:1525){
p=2013-mydata[i,3]

if(mydata[i,2]=="female"){

holder[i,p]=mydata[i,1]
}
if(mydata[i,2]=="male"){
holder[i,p]=mydata[i,1]
}
}
print(holder)

Answer 1

#please explain your requirements in comments if this is not what you needed

setwd("C:/Users/aidan/Desktop/r-studio_practice/extracting")

mydata=read.table("genderageyear.txt", header=T)
nrow(mydata)
print(max(mydata[,3]))
print(min(mydata[,3]))
print(2012-1900)#this is 1900 not 1990
#22 cols,1525 rows
#there are 129 rows

holder=matrix(0,129,113)

for(i in 1:129){
p=2013-mydata[i,3]
if(mydata[i,2]=="female"){
holder[i,p]=mydata[i,1]
}
if(mydata[i,2]=="male"){
holder[i,p]=mydata[i,1]
}
}
print(holder)