Abbreviations, easy: Difference between revisions
Content added Content deleted
imported>RegalCode (Added implementation for R) |
imported>RegalCode m (→{{header|R}}) |
||
Line 3,130: | Line 3,130: | ||
# Results |
# Results |
||
results <- sapply(intstr_list,\(y) { |
results <- sapply(intstr_list,\(y) { |
||
matc <- |
matc <- cmds[sapply(cmds,\(x) check_word(y,x))] |
||
ifelse(length(matc) != 0,toupper(matc[1]),"*error*") |
ifelse(length(matc) != 0,toupper(matc[1]),"*error*") |
||
}) |
}) |