[R] apply function over same column of all objects in a list

gail ortoga-r at yahoo.de
Thu Aug 2 14:52:59 CEST 2012


Michael, here is the data I am working with. I've shortened it without, I
trust, changing its nature. I am not using any package other than what is
pre-installed. Many thanks, Gail

> dput(list.example)

list

(structure(list(

x = c(379.455895016957, 380.116796110287, 
380.777697203618, 381.438598296949, 382.099499390279, 382.76040048361, 
383.421301576941, 384.082202670271, 384.743103763602, 385.404004856933, 
386.064905950264, 386.725807043594), 

y = c(7.66474496376218e-06, 
6.43440919959401e-06, 5.36894293042274e-06, 4.45194069157015e-06, 
3.66781132570054e-06, 3.00181397191447e-06, 2.45773671502347e-06, 
2.00342333333225e-06, 1.62212866305772e-06, 1.3043460449395e-06, 
1.04141214324248e-06, 8.26430099678339e-07), 

bw = 9.02854660253144, 

n = 1102L,

call = density.default(x = read.table(paste(locuteur, 
        i, sep = ""))$V1[read.table(paste(locuteur, i, sep = ""))$V1 != 
        0]),

data.name = c("read.table(paste(locuteur, i, sep =
\"\"))$V1[read.table(paste(locuteur, ", 
    "    i, sep = \"\"))$V1 != 0]"), has.na = FALSE),

.Names = c("x", 
"y", "bw", "n", "call", "data.name", "has.na"),

class = "density"),

structure(list(x = c(372.576546447762, 373.241257067042, 
    373.905967686322, 374.570678305602, 375.235388924882, 375.900099544162, 
    376.564810163442, 377.229520782722, 377.894231402002, 378.558942021282, 
    379.223652640562, 379.888363259842), y = c(1.60229850505427e-05, 
    1.30822330219271e-05, 1.05973406669671e-05, 8.51514876035057e-06, 
    6.78543779138952e-06, 5.41596769065147e-06, 4.28876937728122e-06, 
    3.36815237991786e-06, 2.62273082547721e-06, 2.02454969122432e-06, 
    1.54894049348427e-06, 1.18505840947482e-06), bw = 7.90353278894747, 
        n = 1409L, call = density.default(x = read.table(paste(locuteur, 
            i, sep = ""))$V1[read.table(paste(locuteur, i, sep = ""))$V1 != 
            0]), data.name = c("read.table(paste(locuteur, i, sep =
\"\"))$V1[read.table(paste(locuteur, ", 
        "    i, sep = \"\"))$V1 != 0]"), has.na = FALSE), .Names = c("x", 
    "y", "bw", "n", "call", "data.name", "has.na"), class = "density"),

    structure(list(x = c(383.473231160603, 384.169713215726, 
    384.866195270849, 385.562677325973, 386.259159381096, 386.955641436219, 
    387.652123491343, 388.348605546466, 389.045087601589, 389.741569656713, 
    390.438051711836, 391.134533766959), y = c(2.40798446492758e-06, 
    2.04205952412882e-06, 1.72782287870817e-06, 1.45399002130161e-06, 
    1.21665858527511e-06, 1.01213493683702e-06, 8.37503296444613e-07, 
    6.94344355906326e-07, 5.72200769661348e-07, 4.6862434236517e-07, 
    3.81353514437358e-07, 3.08309463721622e-07), bw = 10.0108886969865, 
        n = 1522L, call = density.default(x = read.table(paste(locuteur, 
            i, sep = ""))$V1[read.table(paste(locuteur, i, sep = ""))$V1 != 
            0]), data.name = c("read.table(paste(locuteur, i, sep =
\"\"))$V1[read.table(paste(locuteur, ", 
        "    i, sep = \"\"))$V1 != 0]"), has.na = FALSE), .Names = c("x", 
    "y", "bw", "n", "call", "data.name", "has.na"), class = "density"),

    NULL, NULL, NULL, NULL, NULL, NULL)




--
View this message in context: http://r.789695.n4.nabble.com/apply-function-over-same-column-of-all-objects-in-a-list-tp4638681p4638865.html
Sent from the R help mailing list archive at Nabble.com.



More information about the R-help mailing list