This is my data:
df1<-read.table(text=" Time1 Time2 Time3 MNR1 MNR2 MNR3
36 36 43 5 4 5
40 41 51 4 6 4
38 36 50 7 8 3
35 51 43 8 3 2
52 55 57 3 2 4
",header=TRUE)
I want to have a loop using lapply ( preferably) to analyse Time1 with MNR1, Time2 with MNR2 and Time 3 with MRN3 using regression model and ....
I have tried the following function, but I failed to get the results:
R <- lapply(1:ncol(df1), function(x) lm(Time[,x] ~ MNR[,x]))
But it does not give me the results for each group. Can we do it using lapply?
