Displaying 1 result from an estimated 1 matches for "data_value_squar".
Did you mean:
data_value_square
2009 Dec 22
2
Nested For loops
...ctice more but I need help to revive my skills. I know that apply() or sapply() would be beneficial. I need help...
Best Wishes,
Baloo
R code
----------
acf_wal <- function (infile) {
data<-read.table(infile)
data_value <- data[,-1]
data_value_mean <- mean(data_value)
data_value_square <- (data_value - data_value_mean) ^ 2
square_sum<-sum(data_value_square)
entry<-NROW(data_value)
deno<-square_sum/entry
tab1<-c()
tab2<-c()
ps_value <- seq(0,(floor(entry/2)),1)
for(k in 0:(floor(entry/2))){
for (i in 1:(entry-k)) {
...