extras/genFns.R
In WinVector/wrapr: Wrap R Tools for Debugging and Parametric Programming
fWrapr_10 <- function() {
let(
c( NM_0 = 'var_0',
NM_1 = 'var_1',
NM_2 = 'var_2',
NM_3 = 'var_3',
NM_4 = 'var_4',
NM_5 = 'var_5',
NM_6 = 'var_6',
NM_7 = 'var_7',
NM_8 = 'var_8',
NM_9 = 'var_9' ),
NM_0 +
NM_1 +
NM_2 +
NM_3 +
NM_4 +
NM_5 +
NM_6 +
NM_7 +
NM_8 +
NM_9
)}
fTidyN_10 <- function() {
NM_0 = as.name('var_0')
NM_1 = as.name('var_1')
NM_2 = as.name('var_2')
NM_3 = as.name('var_3')
NM_4 = as.name('var_4')
NM_5 = as.name('var_5')
NM_6 = as.name('var_6')
NM_7 = as.name('var_7')
NM_8 = as.name('var_8')
NM_9 = as.name('var_9')
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) ))
}
fTidyQ_10 <- function() {
NM_0 = quo(var_0)
NM_1 = quo(var_1)
NM_2 = quo(var_2)
NM_3 = quo(var_3)
NM_4 = quo(var_4)
NM_5 = quo(var_5)
NM_6 = quo(var_6)
NM_7 = quo(var_7)
NM_8 = quo(var_8)
NM_9 = quo(var_9)
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) ))
}
fWrapr_15 <- function() {
let(
c( NM_0 = 'var_0',
NM_1 = 'var_1',
NM_2 = 'var_2',
NM_3 = 'var_3',
NM_4 = 'var_4',
NM_5 = 'var_5',
NM_6 = 'var_6',
NM_7 = 'var_7',
NM_8 = 'var_8',
NM_9 = 'var_9',
NM_10 = 'var_10',
NM_11 = 'var_11',
NM_12 = 'var_12',
NM_13 = 'var_13',
NM_14 = 'var_14' ),
NM_0 +
NM_1 +
NM_2 +
NM_3 +
NM_4 +
NM_5 +
NM_6 +
NM_7 +
NM_8 +
NM_9 +
NM_10 +
NM_11 +
NM_12 +
NM_13 +
NM_14
)}
fTidyN_15 <- function() {
NM_0 = as.name('var_0')
NM_1 = as.name('var_1')
NM_2 = as.name('var_2')
NM_3 = as.name('var_3')
NM_4 = as.name('var_4')
NM_5 = as.name('var_5')
NM_6 = as.name('var_6')
NM_7 = as.name('var_7')
NM_8 = as.name('var_8')
NM_9 = as.name('var_9')
NM_10 = as.name('var_10')
NM_11 = as.name('var_11')
NM_12 = as.name('var_12')
NM_13 = as.name('var_13')
NM_14 = as.name('var_14')
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) ))
}
fTidyQ_15 <- function() {
NM_0 = quo(var_0)
NM_1 = quo(var_1)
NM_2 = quo(var_2)
NM_3 = quo(var_3)
NM_4 = quo(var_4)
NM_5 = quo(var_5)
NM_6 = quo(var_6)
NM_7 = quo(var_7)
NM_8 = quo(var_8)
NM_9 = quo(var_9)
NM_10 = quo(var_10)
NM_11 = quo(var_11)
NM_12 = quo(var_12)
NM_13 = quo(var_13)
NM_14 = quo(var_14)
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) ))
}
fWrapr_20 <- function() {
let(
c( NM_0 = 'var_0',
NM_1 = 'var_1',
NM_2 = 'var_2',
NM_3 = 'var_3',
NM_4 = 'var_4',
NM_5 = 'var_5',
NM_6 = 'var_6',
NM_7 = 'var_7',
NM_8 = 'var_8',
NM_9 = 'var_9',
NM_10 = 'var_10',
NM_11 = 'var_11',
NM_12 = 'var_12',
NM_13 = 'var_13',
NM_14 = 'var_14',
NM_15 = 'var_15',
NM_16 = 'var_16',
NM_17 = 'var_17',
NM_18 = 'var_18',
NM_19 = 'var_19' ),
NM_0 +
NM_1 +
NM_2 +
NM_3 +
NM_4 +
NM_5 +
NM_6 +
NM_7 +
NM_8 +
NM_9 +
NM_10 +
NM_11 +
NM_12 +
NM_13 +
NM_14 +
NM_15 +
NM_16 +
NM_17 +
NM_18 +
NM_19
)}
fTidyN_20 <- function() {
NM_0 = as.name('var_0')
NM_1 = as.name('var_1')
NM_2 = as.name('var_2')
NM_3 = as.name('var_3')
NM_4 = as.name('var_4')
NM_5 = as.name('var_5')
NM_6 = as.name('var_6')
NM_7 = as.name('var_7')
NM_8 = as.name('var_8')
NM_9 = as.name('var_9')
NM_10 = as.name('var_10')
NM_11 = as.name('var_11')
NM_12 = as.name('var_12')
NM_13 = as.name('var_13')
NM_14 = as.name('var_14')
NM_15 = as.name('var_15')
NM_16 = as.name('var_16')
NM_17 = as.name('var_17')
NM_18 = as.name('var_18')
NM_19 = as.name('var_19')
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) +
(!!NM_15) +
(!!NM_16) +
(!!NM_17) +
(!!NM_18) +
(!!NM_19) ))
}
fTidyQ_20 <- function() {
NM_0 = quo(var_0)
NM_1 = quo(var_1)
NM_2 = quo(var_2)
NM_3 = quo(var_3)
NM_4 = quo(var_4)
NM_5 = quo(var_5)
NM_6 = quo(var_6)
NM_7 = quo(var_7)
NM_8 = quo(var_8)
NM_9 = quo(var_9)
NM_10 = quo(var_10)
NM_11 = quo(var_11)
NM_12 = quo(var_12)
NM_13 = quo(var_13)
NM_14 = quo(var_14)
NM_15 = quo(var_15)
NM_16 = quo(var_16)
NM_17 = quo(var_17)
NM_18 = quo(var_18)
NM_19 = quo(var_19)
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) +
(!!NM_15) +
(!!NM_16) +
(!!NM_17) +
(!!NM_18) +
(!!NM_19) ))
}
fWrapr_25 <- function() {
let(
c( NM_0 = 'var_0',
NM_1 = 'var_1',
NM_2 = 'var_2',
NM_3 = 'var_3',
NM_4 = 'var_4',
NM_5 = 'var_5',
NM_6 = 'var_6',
NM_7 = 'var_7',
NM_8 = 'var_8',
NM_9 = 'var_9',
NM_10 = 'var_10',
NM_11 = 'var_11',
NM_12 = 'var_12',
NM_13 = 'var_13',
NM_14 = 'var_14',
NM_15 = 'var_15',
NM_16 = 'var_16',
NM_17 = 'var_17',
NM_18 = 'var_18',
NM_19 = 'var_19',
NM_20 = 'var_20',
NM_21 = 'var_21',
NM_22 = 'var_22',
NM_23 = 'var_23',
NM_24 = 'var_24' ),
NM_0 +
NM_1 +
NM_2 +
NM_3 +
NM_4 +
NM_5 +
NM_6 +
NM_7 +
NM_8 +
NM_9 +
NM_10 +
NM_11 +
NM_12 +
NM_13 +
NM_14 +
NM_15 +
NM_16 +
NM_17 +
NM_18 +
NM_19 +
NM_20 +
NM_21 +
NM_22 +
NM_23 +
NM_24
)}
fTidyN_25 <- function() {
NM_0 = as.name('var_0')
NM_1 = as.name('var_1')
NM_2 = as.name('var_2')
NM_3 = as.name('var_3')
NM_4 = as.name('var_4')
NM_5 = as.name('var_5')
NM_6 = as.name('var_6')
NM_7 = as.name('var_7')
NM_8 = as.name('var_8')
NM_9 = as.name('var_9')
NM_10 = as.name('var_10')
NM_11 = as.name('var_11')
NM_12 = as.name('var_12')
NM_13 = as.name('var_13')
NM_14 = as.name('var_14')
NM_15 = as.name('var_15')
NM_16 = as.name('var_16')
NM_17 = as.name('var_17')
NM_18 = as.name('var_18')
NM_19 = as.name('var_19')
NM_20 = as.name('var_20')
NM_21 = as.name('var_21')
NM_22 = as.name('var_22')
NM_23 = as.name('var_23')
NM_24 = as.name('var_24')
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) +
(!!NM_15) +
(!!NM_16) +
(!!NM_17) +
(!!NM_18) +
(!!NM_19) +
(!!NM_20) +
(!!NM_21) +
(!!NM_22) +
(!!NM_23) +
(!!NM_24) ))
}
fTidyQ_25 <- function() {
NM_0 = quo(var_0)
NM_1 = quo(var_1)
NM_2 = quo(var_2)
NM_3 = quo(var_3)
NM_4 = quo(var_4)
NM_5 = quo(var_5)
NM_6 = quo(var_6)
NM_7 = quo(var_7)
NM_8 = quo(var_8)
NM_9 = quo(var_9)
NM_10 = quo(var_10)
NM_11 = quo(var_11)
NM_12 = quo(var_12)
NM_13 = quo(var_13)
NM_14 = quo(var_14)
NM_15 = quo(var_15)
NM_16 = quo(var_16)
NM_17 = quo(var_17)
NM_18 = quo(var_18)
NM_19 = quo(var_19)
NM_20 = quo(var_20)
NM_21 = quo(var_21)
NM_22 = quo(var_22)
NM_23 = quo(var_23)
NM_24 = quo(var_24)
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) +
(!!NM_15) +
(!!NM_16) +
(!!NM_17) +
(!!NM_18) +
(!!NM_19) +
(!!NM_20) +
(!!NM_21) +
(!!NM_22) +
(!!NM_23) +
(!!NM_24) ))
}
fWrapr_50 <- function() {
let(
c( NM_0 = 'var_0',
NM_1 = 'var_1',
NM_2 = 'var_2',
NM_3 = 'var_3',
NM_4 = 'var_4',
NM_5 = 'var_5',
NM_6 = 'var_6',
NM_7 = 'var_7',
NM_8 = 'var_8',
NM_9 = 'var_9',
NM_10 = 'var_10',
NM_11 = 'var_11',
NM_12 = 'var_12',
NM_13 = 'var_13',
NM_14 = 'var_14',
NM_15 = 'var_15',
NM_16 = 'var_16',
NM_17 = 'var_17',
NM_18 = 'var_18',
NM_19 = 'var_19',
NM_20 = 'var_20',
NM_21 = 'var_21',
NM_22 = 'var_22',
NM_23 = 'var_23',
NM_24 = 'var_24',
NM_25 = 'var_25',
NM_26 = 'var_26',
NM_27 = 'var_27',
NM_28 = 'var_28',
NM_29 = 'var_29',
NM_30 = 'var_30',
NM_31 = 'var_31',
NM_32 = 'var_32',
NM_33 = 'var_33',
NM_34 = 'var_34',
NM_35 = 'var_35',
NM_36 = 'var_36',
NM_37 = 'var_37',
NM_38 = 'var_38',
NM_39 = 'var_39',
NM_40 = 'var_40',
NM_41 = 'var_41',
NM_42 = 'var_42',
NM_43 = 'var_43',
NM_44 = 'var_44',
NM_45 = 'var_45',
NM_46 = 'var_46',
NM_47 = 'var_47',
NM_48 = 'var_48',
NM_49 = 'var_49' ),
NM_0 +
NM_1 +
NM_2 +
NM_3 +
NM_4 +
NM_5 +
NM_6 +
NM_7 +
NM_8 +
NM_9 +
NM_10 +
NM_11 +
NM_12 +
NM_13 +
NM_14 +
NM_15 +
NM_16 +
NM_17 +
NM_18 +
NM_19 +
NM_20 +
NM_21 +
NM_22 +
NM_23 +
NM_24 +
NM_25 +
NM_26 +
NM_27 +
NM_28 +
NM_29 +
NM_30 +
NM_31 +
NM_32 +
NM_33 +
NM_34 +
NM_35 +
NM_36 +
NM_37 +
NM_38 +
NM_39 +
NM_40 +
NM_41 +
NM_42 +
NM_43 +
NM_44 +
NM_45 +
NM_46 +
NM_47 +
NM_48 +
NM_49
)}
fTidyN_50 <- function() {
NM_0 = as.name('var_0')
NM_1 = as.name('var_1')
NM_2 = as.name('var_2')
NM_3 = as.name('var_3')
NM_4 = as.name('var_4')
NM_5 = as.name('var_5')
NM_6 = as.name('var_6')
NM_7 = as.name('var_7')
NM_8 = as.name('var_8')
NM_9 = as.name('var_9')
NM_10 = as.name('var_10')
NM_11 = as.name('var_11')
NM_12 = as.name('var_12')
NM_13 = as.name('var_13')
NM_14 = as.name('var_14')
NM_15 = as.name('var_15')
NM_16 = as.name('var_16')
NM_17 = as.name('var_17')
NM_18 = as.name('var_18')
NM_19 = as.name('var_19')
NM_20 = as.name('var_20')
NM_21 = as.name('var_21')
NM_22 = as.name('var_22')
NM_23 = as.name('var_23')
NM_24 = as.name('var_24')
NM_25 = as.name('var_25')
NM_26 = as.name('var_26')
NM_27 = as.name('var_27')
NM_28 = as.name('var_28')
NM_29 = as.name('var_29')
NM_30 = as.name('var_30')
NM_31 = as.name('var_31')
NM_32 = as.name('var_32')
NM_33 = as.name('var_33')
NM_34 = as.name('var_34')
NM_35 = as.name('var_35')
NM_36 = as.name('var_36')
NM_37 = as.name('var_37')
NM_38 = as.name('var_38')
NM_39 = as.name('var_39')
NM_40 = as.name('var_40')
NM_41 = as.name('var_41')
NM_42 = as.name('var_42')
NM_43 = as.name('var_43')
NM_44 = as.name('var_44')
NM_45 = as.name('var_45')
NM_46 = as.name('var_46')
NM_47 = as.name('var_47')
NM_48 = as.name('var_48')
NM_49 = as.name('var_49')
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) +
(!!NM_15) +
(!!NM_16) +
(!!NM_17) +
(!!NM_18) +
(!!NM_19) +
(!!NM_20) +
(!!NM_21) +
(!!NM_22) +
(!!NM_23) +
(!!NM_24) +
(!!NM_25) +
(!!NM_26) +
(!!NM_27) +
(!!NM_28) +
(!!NM_29) +
(!!NM_30) +
(!!NM_31) +
(!!NM_32) +
(!!NM_33) +
(!!NM_34) +
(!!NM_35) +
(!!NM_36) +
(!!NM_37) +
(!!NM_38) +
(!!NM_39) +
(!!NM_40) +
(!!NM_41) +
(!!NM_42) +
(!!NM_43) +
(!!NM_44) +
(!!NM_45) +
(!!NM_46) +
(!!NM_47) +
(!!NM_48) +
(!!NM_49) ))
}
fTidyQ_50 <- function() {
NM_0 = quo(var_0)
NM_1 = quo(var_1)
NM_2 = quo(var_2)
NM_3 = quo(var_3)
NM_4 = quo(var_4)
NM_5 = quo(var_5)
NM_6 = quo(var_6)
NM_7 = quo(var_7)
NM_8 = quo(var_8)
NM_9 = quo(var_9)
NM_10 = quo(var_10)
NM_11 = quo(var_11)
NM_12 = quo(var_12)
NM_13 = quo(var_13)
NM_14 = quo(var_14)
NM_15 = quo(var_15)
NM_16 = quo(var_16)
NM_17 = quo(var_17)
NM_18 = quo(var_18)
NM_19 = quo(var_19)
NM_20 = quo(var_20)
NM_21 = quo(var_21)
NM_22 = quo(var_22)
NM_23 = quo(var_23)
NM_24 = quo(var_24)
NM_25 = quo(var_25)
NM_26 = quo(var_26)
NM_27 = quo(var_27)
NM_28 = quo(var_28)
NM_29 = quo(var_29)
NM_30 = quo(var_30)
NM_31 = quo(var_31)
NM_32 = quo(var_32)
NM_33 = quo(var_33)
NM_34 = quo(var_34)
NM_35 = quo(var_35)
NM_36 = quo(var_36)
NM_37 = quo(var_37)
NM_38 = quo(var_38)
NM_39 = quo(var_39)
NM_40 = quo(var_40)
NM_41 = quo(var_41)
NM_42 = quo(var_42)
NM_43 = quo(var_43)
NM_44 = quo(var_44)
NM_45 = quo(var_45)
NM_46 = quo(var_46)
NM_47 = quo(var_47)
NM_48 = quo(var_48)
NM_49 = quo(var_49)
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) +
(!!NM_15) +
(!!NM_16) +
(!!NM_17) +
(!!NM_18) +
(!!NM_19) +
(!!NM_20) +
(!!NM_21) +
(!!NM_22) +
(!!NM_23) +
(!!NM_24) +
(!!NM_25) +
(!!NM_26) +
(!!NM_27) +
(!!NM_28) +
(!!NM_29) +
(!!NM_30) +
(!!NM_31) +
(!!NM_32) +
(!!NM_33) +
(!!NM_34) +
(!!NM_35) +
(!!NM_36) +
(!!NM_37) +
(!!NM_38) +
(!!NM_39) +
(!!NM_40) +
(!!NM_41) +
(!!NM_42) +
(!!NM_43) +
(!!NM_44) +
(!!NM_45) +
(!!NM_46) +
(!!NM_47) +
(!!NM_48) +
(!!NM_49) ))
}
WinVector/wrapr documentation built on Aug. 29, 2023, 4:51 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
fWrapr_10 <- function() {
let(
c( NM_0 = 'var_0',
NM_1 = 'var_1',
NM_2 = 'var_2',
NM_3 = 'var_3',
NM_4 = 'var_4',
NM_5 = 'var_5',
NM_6 = 'var_6',
NM_7 = 'var_7',
NM_8 = 'var_8',
NM_9 = 'var_9' ),
NM_0 +
NM_1 +
NM_2 +
NM_3 +
NM_4 +
NM_5 +
NM_6 +
NM_7 +
NM_8 +
NM_9
)}
fTidyN_10 <- function() {
NM_0 = as.name('var_0')
NM_1 = as.name('var_1')
NM_2 = as.name('var_2')
NM_3 = as.name('var_3')
NM_4 = as.name('var_4')
NM_5 = as.name('var_5')
NM_6 = as.name('var_6')
NM_7 = as.name('var_7')
NM_8 = as.name('var_8')
NM_9 = as.name('var_9')
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) ))
}
fTidyQ_10 <- function() {
NM_0 = quo(var_0)
NM_1 = quo(var_1)
NM_2 = quo(var_2)
NM_3 = quo(var_3)
NM_4 = quo(var_4)
NM_5 = quo(var_5)
NM_6 = quo(var_6)
NM_7 = quo(var_7)
NM_8 = quo(var_8)
NM_9 = quo(var_9)
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) ))
}
fWrapr_15 <- function() {
let(
c( NM_0 = 'var_0',
NM_1 = 'var_1',
NM_2 = 'var_2',
NM_3 = 'var_3',
NM_4 = 'var_4',
NM_5 = 'var_5',
NM_6 = 'var_6',
NM_7 = 'var_7',
NM_8 = 'var_8',
NM_9 = 'var_9',
NM_10 = 'var_10',
NM_11 = 'var_11',
NM_12 = 'var_12',
NM_13 = 'var_13',
NM_14 = 'var_14' ),
NM_0 +
NM_1 +
NM_2 +
NM_3 +
NM_4 +
NM_5 +
NM_6 +
NM_7 +
NM_8 +
NM_9 +
NM_10 +
NM_11 +
NM_12 +
NM_13 +
NM_14
)}
fTidyN_15 <- function() {
NM_0 = as.name('var_0')
NM_1 = as.name('var_1')
NM_2 = as.name('var_2')
NM_3 = as.name('var_3')
NM_4 = as.name('var_4')
NM_5 = as.name('var_5')
NM_6 = as.name('var_6')
NM_7 = as.name('var_7')
NM_8 = as.name('var_8')
NM_9 = as.name('var_9')
NM_10 = as.name('var_10')
NM_11 = as.name('var_11')
NM_12 = as.name('var_12')
NM_13 = as.name('var_13')
NM_14 = as.name('var_14')
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) ))
}
fTidyQ_15 <- function() {
NM_0 = quo(var_0)
NM_1 = quo(var_1)
NM_2 = quo(var_2)
NM_3 = quo(var_3)
NM_4 = quo(var_4)
NM_5 = quo(var_5)
NM_6 = quo(var_6)
NM_7 = quo(var_7)
NM_8 = quo(var_8)
NM_9 = quo(var_9)
NM_10 = quo(var_10)
NM_11 = quo(var_11)
NM_12 = quo(var_12)
NM_13 = quo(var_13)
NM_14 = quo(var_14)
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) ))
}
fWrapr_20 <- function() {
let(
c( NM_0 = 'var_0',
NM_1 = 'var_1',
NM_2 = 'var_2',
NM_3 = 'var_3',
NM_4 = 'var_4',
NM_5 = 'var_5',
NM_6 = 'var_6',
NM_7 = 'var_7',
NM_8 = 'var_8',
NM_9 = 'var_9',
NM_10 = 'var_10',
NM_11 = 'var_11',
NM_12 = 'var_12',
NM_13 = 'var_13',
NM_14 = 'var_14',
NM_15 = 'var_15',
NM_16 = 'var_16',
NM_17 = 'var_17',
NM_18 = 'var_18',
NM_19 = 'var_19' ),
NM_0 +
NM_1 +
NM_2 +
NM_3 +
NM_4 +
NM_5 +
NM_6 +
NM_7 +
NM_8 +
NM_9 +
NM_10 +
NM_11 +
NM_12 +
NM_13 +
NM_14 +
NM_15 +
NM_16 +
NM_17 +
NM_18 +
NM_19
)}
fTidyN_20 <- function() {
NM_0 = as.name('var_0')
NM_1 = as.name('var_1')
NM_2 = as.name('var_2')
NM_3 = as.name('var_3')
NM_4 = as.name('var_4')
NM_5 = as.name('var_5')
NM_6 = as.name('var_6')
NM_7 = as.name('var_7')
NM_8 = as.name('var_8')
NM_9 = as.name('var_9')
NM_10 = as.name('var_10')
NM_11 = as.name('var_11')
NM_12 = as.name('var_12')
NM_13 = as.name('var_13')
NM_14 = as.name('var_14')
NM_15 = as.name('var_15')
NM_16 = as.name('var_16')
NM_17 = as.name('var_17')
NM_18 = as.name('var_18')
NM_19 = as.name('var_19')
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) +
(!!NM_15) +
(!!NM_16) +
(!!NM_17) +
(!!NM_18) +
(!!NM_19) ))
}
fTidyQ_20 <- function() {
NM_0 = quo(var_0)
NM_1 = quo(var_1)
NM_2 = quo(var_2)
NM_3 = quo(var_3)
NM_4 = quo(var_4)
NM_5 = quo(var_5)
NM_6 = quo(var_6)
NM_7 = quo(var_7)
NM_8 = quo(var_8)
NM_9 = quo(var_9)
NM_10 = quo(var_10)
NM_11 = quo(var_11)
NM_12 = quo(var_12)
NM_13 = quo(var_13)
NM_14 = quo(var_14)
NM_15 = quo(var_15)
NM_16 = quo(var_16)
NM_17 = quo(var_17)
NM_18 = quo(var_18)
NM_19 = quo(var_19)
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) +
(!!NM_15) +
(!!NM_16) +
(!!NM_17) +
(!!NM_18) +
(!!NM_19) ))
}
fWrapr_25 <- function() {
let(
c( NM_0 = 'var_0',
NM_1 = 'var_1',
NM_2 = 'var_2',
NM_3 = 'var_3',
NM_4 = 'var_4',
NM_5 = 'var_5',
NM_6 = 'var_6',
NM_7 = 'var_7',
NM_8 = 'var_8',
NM_9 = 'var_9',
NM_10 = 'var_10',
NM_11 = 'var_11',
NM_12 = 'var_12',
NM_13 = 'var_13',
NM_14 = 'var_14',
NM_15 = 'var_15',
NM_16 = 'var_16',
NM_17 = 'var_17',
NM_18 = 'var_18',
NM_19 = 'var_19',
NM_20 = 'var_20',
NM_21 = 'var_21',
NM_22 = 'var_22',
NM_23 = 'var_23',
NM_24 = 'var_24' ),
NM_0 +
NM_1 +
NM_2 +
NM_3 +
NM_4 +
NM_5 +
NM_6 +
NM_7 +
NM_8 +
NM_9 +
NM_10 +
NM_11 +
NM_12 +
NM_13 +
NM_14 +
NM_15 +
NM_16 +
NM_17 +
NM_18 +
NM_19 +
NM_20 +
NM_21 +
NM_22 +
NM_23 +
NM_24
)}
fTidyN_25 <- function() {
NM_0 = as.name('var_0')
NM_1 = as.name('var_1')
NM_2 = as.name('var_2')
NM_3 = as.name('var_3')
NM_4 = as.name('var_4')
NM_5 = as.name('var_5')
NM_6 = as.name('var_6')
NM_7 = as.name('var_7')
NM_8 = as.name('var_8')
NM_9 = as.name('var_9')
NM_10 = as.name('var_10')
NM_11 = as.name('var_11')
NM_12 = as.name('var_12')
NM_13 = as.name('var_13')
NM_14 = as.name('var_14')
NM_15 = as.name('var_15')
NM_16 = as.name('var_16')
NM_17 = as.name('var_17')
NM_18 = as.name('var_18')
NM_19 = as.name('var_19')
NM_20 = as.name('var_20')
NM_21 = as.name('var_21')
NM_22 = as.name('var_22')
NM_23 = as.name('var_23')
NM_24 = as.name('var_24')
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) +
(!!NM_15) +
(!!NM_16) +
(!!NM_17) +
(!!NM_18) +
(!!NM_19) +
(!!NM_20) +
(!!NM_21) +
(!!NM_22) +
(!!NM_23) +
(!!NM_24) ))
}
fTidyQ_25 <- function() {
NM_0 = quo(var_0)
NM_1 = quo(var_1)
NM_2 = quo(var_2)
NM_3 = quo(var_3)
NM_4 = quo(var_4)
NM_5 = quo(var_5)
NM_6 = quo(var_6)
NM_7 = quo(var_7)
NM_8 = quo(var_8)
NM_9 = quo(var_9)
NM_10 = quo(var_10)
NM_11 = quo(var_11)
NM_12 = quo(var_12)
NM_13 = quo(var_13)
NM_14 = quo(var_14)
NM_15 = quo(var_15)
NM_16 = quo(var_16)
NM_17 = quo(var_17)
NM_18 = quo(var_18)
NM_19 = quo(var_19)
NM_20 = quo(var_20)
NM_21 = quo(var_21)
NM_22 = quo(var_22)
NM_23 = quo(var_23)
NM_24 = quo(var_24)
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) +
(!!NM_15) +
(!!NM_16) +
(!!NM_17) +
(!!NM_18) +
(!!NM_19) +
(!!NM_20) +
(!!NM_21) +
(!!NM_22) +
(!!NM_23) +
(!!NM_24) ))
}
fWrapr_50 <- function() {
let(
c( NM_0 = 'var_0',
NM_1 = 'var_1',
NM_2 = 'var_2',
NM_3 = 'var_3',
NM_4 = 'var_4',
NM_5 = 'var_5',
NM_6 = 'var_6',
NM_7 = 'var_7',
NM_8 = 'var_8',
NM_9 = 'var_9',
NM_10 = 'var_10',
NM_11 = 'var_11',
NM_12 = 'var_12',
NM_13 = 'var_13',
NM_14 = 'var_14',
NM_15 = 'var_15',
NM_16 = 'var_16',
NM_17 = 'var_17',
NM_18 = 'var_18',
NM_19 = 'var_19',
NM_20 = 'var_20',
NM_21 = 'var_21',
NM_22 = 'var_22',
NM_23 = 'var_23',
NM_24 = 'var_24',
NM_25 = 'var_25',
NM_26 = 'var_26',
NM_27 = 'var_27',
NM_28 = 'var_28',
NM_29 = 'var_29',
NM_30 = 'var_30',
NM_31 = 'var_31',
NM_32 = 'var_32',
NM_33 = 'var_33',
NM_34 = 'var_34',
NM_35 = 'var_35',
NM_36 = 'var_36',
NM_37 = 'var_37',
NM_38 = 'var_38',
NM_39 = 'var_39',
NM_40 = 'var_40',
NM_41 = 'var_41',
NM_42 = 'var_42',
NM_43 = 'var_43',
NM_44 = 'var_44',
NM_45 = 'var_45',
NM_46 = 'var_46',
NM_47 = 'var_47',
NM_48 = 'var_48',
NM_49 = 'var_49' ),
NM_0 +
NM_1 +
NM_2 +
NM_3 +
NM_4 +
NM_5 +
NM_6 +
NM_7 +
NM_8 +
NM_9 +
NM_10 +
NM_11 +
NM_12 +
NM_13 +
NM_14 +
NM_15 +
NM_16 +
NM_17 +
NM_18 +
NM_19 +
NM_20 +
NM_21 +
NM_22 +
NM_23 +
NM_24 +
NM_25 +
NM_26 +
NM_27 +
NM_28 +
NM_29 +
NM_30 +
NM_31 +
NM_32 +
NM_33 +
NM_34 +
NM_35 +
NM_36 +
NM_37 +
NM_38 +
NM_39 +
NM_40 +
NM_41 +
NM_42 +
NM_43 +
NM_44 +
NM_45 +
NM_46 +
NM_47 +
NM_48 +
NM_49
)}
fTidyN_50 <- function() {
NM_0 = as.name('var_0')
NM_1 = as.name('var_1')
NM_2 = as.name('var_2')
NM_3 = as.name('var_3')
NM_4 = as.name('var_4')
NM_5 = as.name('var_5')
NM_6 = as.name('var_6')
NM_7 = as.name('var_7')
NM_8 = as.name('var_8')
NM_9 = as.name('var_9')
NM_10 = as.name('var_10')
NM_11 = as.name('var_11')
NM_12 = as.name('var_12')
NM_13 = as.name('var_13')
NM_14 = as.name('var_14')
NM_15 = as.name('var_15')
NM_16 = as.name('var_16')
NM_17 = as.name('var_17')
NM_18 = as.name('var_18')
NM_19 = as.name('var_19')
NM_20 = as.name('var_20')
NM_21 = as.name('var_21')
NM_22 = as.name('var_22')
NM_23 = as.name('var_23')
NM_24 = as.name('var_24')
NM_25 = as.name('var_25')
NM_26 = as.name('var_26')
NM_27 = as.name('var_27')
NM_28 = as.name('var_28')
NM_29 = as.name('var_29')
NM_30 = as.name('var_30')
NM_31 = as.name('var_31')
NM_32 = as.name('var_32')
NM_33 = as.name('var_33')
NM_34 = as.name('var_34')
NM_35 = as.name('var_35')
NM_36 = as.name('var_36')
NM_37 = as.name('var_37')
NM_38 = as.name('var_38')
NM_39 = as.name('var_39')
NM_40 = as.name('var_40')
NM_41 = as.name('var_41')
NM_42 = as.name('var_42')
NM_43 = as.name('var_43')
NM_44 = as.name('var_44')
NM_45 = as.name('var_45')
NM_46 = as.name('var_46')
NM_47 = as.name('var_47')
NM_48 = as.name('var_48')
NM_49 = as.name('var_49')
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) +
(!!NM_15) +
(!!NM_16) +
(!!NM_17) +
(!!NM_18) +
(!!NM_19) +
(!!NM_20) +
(!!NM_21) +
(!!NM_22) +
(!!NM_23) +
(!!NM_24) +
(!!NM_25) +
(!!NM_26) +
(!!NM_27) +
(!!NM_28) +
(!!NM_29) +
(!!NM_30) +
(!!NM_31) +
(!!NM_32) +
(!!NM_33) +
(!!NM_34) +
(!!NM_35) +
(!!NM_36) +
(!!NM_37) +
(!!NM_38) +
(!!NM_39) +
(!!NM_40) +
(!!NM_41) +
(!!NM_42) +
(!!NM_43) +
(!!NM_44) +
(!!NM_45) +
(!!NM_46) +
(!!NM_47) +
(!!NM_48) +
(!!NM_49) ))
}
fTidyQ_50 <- function() {
NM_0 = quo(var_0)
NM_1 = quo(var_1)
NM_2 = quo(var_2)
NM_3 = quo(var_3)
NM_4 = quo(var_4)
NM_5 = quo(var_5)
NM_6 = quo(var_6)
NM_7 = quo(var_7)
NM_8 = quo(var_8)
NM_9 = quo(var_9)
NM_10 = quo(var_10)
NM_11 = quo(var_11)
NM_12 = quo(var_12)
NM_13 = quo(var_13)
NM_14 = quo(var_14)
NM_15 = quo(var_15)
NM_16 = quo(var_16)
NM_17 = quo(var_17)
NM_18 = quo(var_18)
NM_19 = quo(var_19)
NM_20 = quo(var_20)
NM_21 = quo(var_21)
NM_22 = quo(var_22)
NM_23 = quo(var_23)
NM_24 = quo(var_24)
NM_25 = quo(var_25)
NM_26 = quo(var_26)
NM_27 = quo(var_27)
NM_28 = quo(var_28)
NM_29 = quo(var_29)
NM_30 = quo(var_30)
NM_31 = quo(var_31)
NM_32 = quo(var_32)
NM_33 = quo(var_33)
NM_34 = quo(var_34)
NM_35 = quo(var_35)
NM_36 = quo(var_36)
NM_37 = quo(var_37)
NM_38 = quo(var_38)
NM_39 = quo(var_39)
NM_40 = quo(var_40)
NM_41 = quo(var_41)
NM_42 = quo(var_42)
NM_43 = quo(var_43)
NM_44 = quo(var_44)
NM_45 = quo(var_45)
NM_46 = quo(var_46)
NM_47 = quo(var_47)
NM_48 = quo(var_48)
NM_49 = quo(var_49)
eval_tidy(quo( (!!NM_0) +
(!!NM_1) +
(!!NM_2) +
(!!NM_3) +
(!!NM_4) +
(!!NM_5) +
(!!NM_6) +
(!!NM_7) +
(!!NM_8) +
(!!NM_9) +
(!!NM_10) +
(!!NM_11) +
(!!NM_12) +
(!!NM_13) +
(!!NM_14) +
(!!NM_15) +
(!!NM_16) +
(!!NM_17) +
(!!NM_18) +
(!!NM_19) +
(!!NM_20) +
(!!NM_21) +
(!!NM_22) +
(!!NM_23) +
(!!NM_24) +
(!!NM_25) +
(!!NM_26) +
(!!NM_27) +
(!!NM_28) +
(!!NM_29) +
(!!NM_30) +
(!!NM_31) +
(!!NM_32) +
(!!NM_33) +
(!!NM_34) +
(!!NM_35) +
(!!NM_36) +
(!!NM_37) +
(!!NM_38) +
(!!NM_39) +
(!!NM_40) +
(!!NM_41) +
(!!NM_42) +
(!!NM_43) +
(!!NM_44) +
(!!NM_45) +
(!!NM_46) +
(!!NM_47) +
(!!NM_48) +
(!!NM_49) ))
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.