Skip to content

Instantly share code, notes, and snippets.

@giupo

giupo/junk.R

Created June 21, 2016 10:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save giupo/ab215263a37dff907754d7596e171f77 to your computer and use it in GitHub Desktop.
Save giupo/ab215263a37dff907754d7596e171f77 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
junk.R
if (
if (is.na(z[[n]])==F ){z[[n]]>0.01 && z[[n]]==z[[n-1]] && z[[n]]!= z[[n-3]]}
else
{z[[n-1]]>0.01 && z[[n-1]]==z[[n-2]] && z[[n-1]]!= z[[n-4]]}
) {ck[[i]]=1} else {ck[[i]]=0}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment