search for: npt1

...y <- dataframe$y yg <- mean(y, na.rm= TRUE) # mean of trait Y # mean of trait Y dvm <- (y-yg ) # deviation of phenotypic value from mean sumdvm <-abs(sum(dvm, na.rm= TRUE)) yQni <- y* Qni sumyQni <-abs(sum(yQni, na.rm= TRUE)) npt = ( sumdvm/ sumyQni) return(npt) } npt1 <- apply(namemat,1, smyfun) return(npt1) } myfun (dataframe) My question is how can I automate the process so that the above function can calculate different values for n levels (>20 in my real data) of factor ped. Thanks in advance for the help. R-community is always helpful. Um...

...eap:HEAP_ValidateInUseArena Heap 40360000: in-use arena 403e7eb8 next block has PREV_FREE flag wine: Unhandled exception (thread 0009), starting debugger... The loading screen "TrueSync Desktop" is shown, but it doesn't go any further. I'm using wine-20031016 (compiled with the -npt1 option), and a debian distro with a custom kernel compiled with 2,6,0-test9. Most windows app. I tested ran without problem. Please note that I tried Wine for only a few days, so I'm quite a newbie on the matter. Do you have any idea on how to fix this? Thank you for your help, -- Pi...