Update TNPWSN.R